home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr01 / jock.zip / TOTDEM11.ZIP / DEMOV2.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-11  |  569b  |  28 lines
  1. program DemoOverlay2;
  2.  
  3. Uses OVERLAY, DOS, CRT,
  4.      OV2Init, totSYS, totLOOK, totINPUT, totFAST, totWIN,
  5.      totIO1, totMSG;
  6.  
  7. {$O totWIN}
  8. {$O totIO1}
  9. {$O totMSG}
  10.  
  11. Var
  12.    MsgWin : MessageOBJ;
  13. begin
  14.    Screen.Clear(white,'░'); {paint the screen}
  15.    with MsgWin do
  16.    begin
  17.       Init(1,' Message ');
  18.       AddLine('');
  19.       AddLine('The message unit provides a');
  20.       AddLine('very easy way of displaying');
  21.       AddLine('pop-up messages in a move-');
  22.       AddLine('able window.');
  23.       AddLine('');
  24.       Show;
  25.       Done;
  26.    end;
  27. end.
  28.